home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1153 < prev    next >
Encoding:
Text File  |  1994-01-25  |  275 b   |  18 lines
  1. supdict begin
  2. /leaf { 
  3.  brandxy  translate 
  4.  360 randint rotate
  5.  /wid 10 randint 15 add def
  6.  0 0 m
  7.  0 wid 0 wid wid wid C
  8.  wid 0 wid 0 0 0 C } def
  9. end 
  10. /randomleaves 
  11. {supdict begin 
  12. newinside 
  13. {q leaf 
  14.  [0 0 0 0] vc q fill Q
  15.  [0 0 0 1] vc 1 w stroke Q 
  16. } repeat end 
  17. } def